home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / MAPSZ2.for < prev    next >
Text File  |  1991-04-13  |  612b  |  21 lines
  1.     SUBROUTINE MAPSZ2(XLPCT,XRPCT,YBPCT,YTPCT,CHRSIZ)
  2.     IMPLICIT NONE
  3.     REAL*4 XLEFT,XRIGHT,YBOT,YTOP,CSIZE,XLPCT,XRPCT,YBPCT,YTPCT
  4.     REAL*4 CHRSIZ,GOODCS
  5.     INCLUDE DIGLIB$KOM:GCDCHR.PRM
  6. C
  7.     XLEFT = XLENCM*XLPCT/100.0
  8.     IF(XLEFT.EQ.0.0) XLEFT = 0.1
  9.     XRIGHT = XLENCM*XRPCT/100.0
  10.     IF(XRPCT.EQ.100.0) XRIGHT = XRIGHT - 0.1
  11.     YBOT = YLENCM*YBPCT/100.0
  12.     IF(YBPCT.EQ.0.0) YBOT = 0.1
  13.     YTOP = YLENCM*YTPCT/100.0
  14.     IF(YTPCT.EQ.100.0) YTOP = YTOP - 0.1
  15.     CSIZE = CHRSIZ
  16.     IF (CSIZE .EQ. 0.0)
  17.      1  CSIZE = GOODCS(AMAX1(0.3,AMIN1(YTOP-YBOT,XRIGHT-XLEFT)/80.0))
  18.     CALL MAPPRM(XLEFT,XRIGHT,YBOT,YTOP,CSIZE,0.9*CSIZE,.TRUE.)
  19.     RETURN
  20.     END
  21.